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MODULE BASSSOPEN _DEFLT ( ’ 
TOENT = '1=041' i File: BASOPENDE.B32 Edit:MDL1041 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS i ihe fs Ler ulte” Usoee A ‘wm tq wy A USED AND sor ree 


* 
e 
* 
* 
* 
* 
* 
' * 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. ® 
' . 
:® He 4 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
+ 
* 
* 
* 
* 
* 
7 
® 


t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


is DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!® SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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& 
FACILITY: BASIC=-PLUS-2 1/0 Processing 
ABSTRACT: 


This module contains BASSSOPEN_DEFLT, the routine which 
implicitly opens channel 0 for a BASIC-PLUS-2 program. 


ENVIRONMENT: VAX=-11 User Mode 
AUTHOR: John Sauter, CREATION DATE: 30-NOV-78 
MODIFIED BY: 


Original. JBS 30-NOV-78 
Change REQUIRE file names from FOR... to OTS... JBS 06-DEC- 
Use symbols for LUN values for PRINT ‘one INPUT. ye 7-DEC- 
0 Change OPENSK UeeeTe bs to vers symbols. JBS $ 08-DEC- 
8 Get LUBSK_PB bytes for the prompt buffer. 185 12-DEC-78 
06 - REQUIRE BRSOPN fo voli, default record length. JBS 12-DEC-78 
007 = Remove FILE_NAM PLA BAS SSSSTOP_ 10 now gets the file 
name from ot OB 
1-008 - Use ZREF to insure’ cher th “Length argument to LIBSGET_VM is 

always a ‘qngverd, BS 
1-008 - set up FAB fields RFM and ROP. JBS 12-DEC-78 

0- ns pttenpted Ry ak. in the LUB al case the OPEN fails 

© badly that no name is returned. S 19-DEC-7 

1-011 - put OPEN” or CONNECT error status in t RAB in case it is not 
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a ISSeort94e QO:52:05  YAMCIT BhisscRz wes ge7eg, 


stored by the OPEN, CREATE or CONNECT galt yBs 19=DEC-78 

Set up margin and default margin. JBS 20-DEC 

1-015 = o's cord b fer size to the deteult if this is a new file. 

1-014 - Unde edit 11: make BASSES TOP. 10 extract the error code from 
the FAB if it is not int e RAB. In support of this, 

we must tell BASSSTOP_ to. chethat the error 5 happened on the 

SOPEN (OR SCREATE) or the SCONNECT. JBS 


_ 
e 
oO 
—_ 
‘ 


Bpe 1-015 - Open FRe seraiost in CR format rather A PRN format. 

Bes 1-016 - oe A pone 198 bit in the LUB to indicate terminal format. 
0070 1-017 = Signal Internal OTS ree rather than Program lost-Sorr 
0071 on an OPEN to a wrens cal unit number. JBS 15-JAN-1979 
007 1-018 = Declare the OTS exit andes to purge 1/0 buffers and close 
007 the file. JBS 24-JAN-19 


1-019 = Put two dollar signs on the non-user entry points. JBS 26-JAN-1979 
1-020 = Don't set record size in RAB because reading an FOF will clear 
it, even for fixed-length records. JBS 31-JAN-1979 
1-021 = Set SQ0, since we will perform onl sequent ial operations 
on the PRINT and INPUT files. JBS 14-FEB-197 
1-088 = Use BASIOERR.REQ to define the 170 error codes. a” Be ny ad 
- Set the margin based on the BLS field returned in t 
OPEN, if the device being opens’ is a terminal. jas Boe FEB-1979 
1-024 = Change BASSSSTOP to BASS$STOP_IO, so that the channel number 
gets reported with the error message. JBS 17-APR-1979 
Do not set ws RAC, record level Coes. JBS 1acMAY= 1979 
Make the margin 16 bits. JBS 30-MAY-1979 
Mark the LUBs OPENed as “being Sorataeh format. JBS 31-MAY-1979 


—— 
ees 
ooo 
rrr 
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eee 


0087 Do not use locate-mode processing, since it causes problems 
BoRS for BASSMARGIN. This is Little loss, since RMS does not 


vom’? do 1° ate-mode processing on process permanent files, 
anne “1975 refers to process permanent files. 


009 1-029 =- Set the tanguage pyte in the LUB, so this file can be 
009 used only Y ASIC programs. This is no loss, since t 
0094 LUNs are only intended for use by BASIC enyuey JBS $0°56n-1979 
0095 1-030 - If the device is a terminal, change it to PRN format, 
0096 so it can be forcible. JBS 10-J0L-1979 
0097 1-031 - If the LUB is opened yt YPRN format, mark it so. JBS 12-JUL-1979 
0098 1-032 = PRN format requires es VFC. JBS 1 L-197 
s¢44 1-035 - channel yt and BASSPRINT to SYSS$INPUT and SYSSOUTPUT. 
01 eS - Use the BASIC-specific exit handler. JBS 17-AUG-1979 
1-055 - Make the initial margin on disk bie? be LUBSK_D_MARGIN, and on 
terminals be infinite. JBS 24- aye 1979 
1-036 - Set uP LUBSA_UBF. JBS 15-NOV-197 
1-037 = Don't gt the CIF or EOF bits in the FAB and APPEND bits in the LUB. 


— 26-F 

1-038 - Set FABSB.. RAT and LUBSB_RAT so that BASSREC_RS 9 will add CR to 
records feu from command files. PLL 18-Aug- 

1-039 = Don't set RAT, RMS sets it. PLL 19-Nov- 

1-040 - LIBSSTOP should “ declared EXTERNAL. PLL 20-Nov-81 

1-041 = only set PRN for the output side of channel 0. MDL 2-Sep-1983 
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oes! ' =11 Bliss-32 v4.0-74 Page 
1on3-* 138% 99:37: BASRTL SRC IBASOPENDE .B82; 1 

a + * ple tala 1223, “1982 9953093 EBASRIL. 

' 
119 O16 i SWITCHES: 
mt s RELATIVE); 
; | 2 AL, NONEXTERNAL = WORD. 
: 133 aH | SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL 
: 121 
: 1! 
: ‘ a i LINKAGES: 
. 636 : 
; \ ' ! define Linkages 
= 2 0} 5 ] REQUIRE "RTLIN:OTSLNK’ 
s ler 
PH BE YF tue wr comers 
; if 0557 1! 
> 131 0558 1 
; De A ; : Do a default open 
3 133 0360 BASSSOPEN_DEFLT : CALL_CCB NOVALUE; 
3 «(134 ; 
i 1% $68 | INCLUDE FILES: 
et OSes defining psects 
; 0565 1 ’ , '. ! Macros for de 
13 0661 ean Seay ! Logical Unit Block definitions 
ers 0662 1 REQUIRE 'RTLML:OTSLUB’; pamsngertates 
ers $808 1 REQUIRE "RTLIN:BASOPN’ ; 
i 0851 1 ! i 1/0 error codes 
: 146 oBe2 | "RTLIN:BASIOERR’ ; t Define 
148 0905 — ras ' ! system definitions 
S143 0906 1 LIBRARY 'RTLSTARLE': 
i Rd 
s 135 0909 1 i MACROS: 
; 13¢ ogi) 1 NONE 
18% 0918 1 | EQUATED SYMBOLS: 
: 0914 1: 
BS 8 pele 
> 157 x 
: 139 0918 | dayeatys . ! Declare psects for BASS facility 
> 160 0319 | DECLARE PSECTS (BAS); 
; 16¢ 0921 1 | OWN STORAGE: 
: 18 358 | | NONE 
: oe 
; 186 é 1 i EXTERNAL REFERENCES: 
> 167 
: 18s 5 ROUTINE : signal fatal error 
: 1% $381 LIBESTOP.: NOVALUE i Signals fatal 1/0 error 
SU CHC RR LCS Re 
> 172 0931 1 LIBSGET_VA, 


BASSSOPEN,DEFLT 
i= 
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a a a et od = = wd = sd 


tro 


jeflelelelelolo) 
OOO00000 
uw 


BASSSDECL_EXITH : NOVALUE; 


EXTERNA 
BASSSL_XIT_LOCK; 


'¢ 


1 
1 


$ 
S 


1 
pl 


; The following are the BASIC error codes used in 


EXTERNAL LITERAL 
BASSK_IO CHAALR : UNSIGNED ( 
BASSK-SYRERR : UNSIGNED (8) 
BASSK-FATSYSIO_ : UNSIGNED ( 
BASSK-FILATTNOT : UNSIGNED ( 
BASSK-ILLUSA : UNSIGNED (8), 
BASSK-MAXMEMEXC : UNSIGNED ( 
EXTERNAL LITERAL 
OTS$_FATINTERR; 


‘ 90:57:03 iret Bliss-32 V4.0- 


Declare BASIC exit handler 
True if exit handler already declared 


this module. 


1/0 channel already open 
Syntax error 

Fatal system 1/0 error 

File attributes not matched 
Illegal Usage 

Maximum memory exceeded 


OTS Fatal internal error 


74 
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Page 
’ (2) 


i 
BASSSOPEN_DEFLT 16-Sep-1984 00:57: AX-11 Bliss-32 V4.0-74 
1-041 12-80 8= 1c 90:35:93 EBASRTL SRe BASOPENDE .B832;1 
> 194 09 1 GLOBAL ROUTINE BASSSOPEN_DEFLT ! Default open 
; «195 0388 1 : NOVALUE CALL_CCB =" i 
3 138 83 4 1 
; #19 955 1 !44 
> 4198 8328 1 ! FUNCTIONAL DESCRIPTION: 
; 199 bee 1! 
; 200 2 aoe Do a default open. This routine is called when an input or 
3 $0) 0959 1! output statement is done to channel 0 ( = a negative LUN) and 
$ Oe 0960 1! it is not open. This routine opens the LUN as a terminal format 
: 2 0961 1! file. 
> 204 4d 74 
: 05 bee 1 ! FORMAL PARAMETERS: 
; 206 964 1! 
$s eur 0965 1! NONE 
; 208 0966 1! 
; 209 0967 1°! IMPLICIT INPUTS: 
; 210 0968 1! 
: 211 0969 1! The CCB, which is passed in a register. 
; si¢ 0970 1! 
s ey 0971 1 =! IMPLICIT OUTPUTS: 
; 214 0972 1! 
. 2e 09735 1! A lot of fields in the LUB. 
> 216 0974 1! 
; 217 0975 1 ! ROUTINE VALUE: 
; 2 0976 1 ! COMPLETION CODES: 
; 219 0977 1! 
; 220 0978 1! NONE 
> 221 0979 1! 
; 222 0980 1 ! SIDE EFFECTS: 
: 223 0981 1! ‘ 
; 224 0982 1! Either opens a file, thus permitting use of channel 0 
3s €e3 0983 1! by BASIC 1/0 statements, or calis BASS$STOP_I0, thus not 
; 226 0984 1! returning to its caller. 
3 ger 0985 1! 
; 228 0986 1 !-- 
3 $$) 0987 1 
3; en 0988 BEGIN 
3; 231 0989 
: $36 0990 EXTERNAL REGISTER 
; 25 0991 CCB : REF BLOCK CO, BYTE); 
3 See 099 
3 @29 099 LOCAL 
3 @2 0994 OPEN_STATUS ' RMS status returned by SOPEN or S$CREATE 
; 237 995 CONNECT STATUS i RMS status returned by $CONNECT 
: 238 336 FAB_BLOCK : BLOCK CFABSC_BLN, BYTE), ' Local FAB 
: 239 99 FAB™: REF BLOCK CFABSC BLN, BYTE) i pointer to FAB 
> 240 0998 NAM_BLOCK : BLOCK [NAMSC_BLN, BYTE) i local NAM block 
> 241 0999 XAB"BLOCK : BLOCK CXABSC"FHCLEN, BYTE), i Local XABFHC block 
5 ¢g 1090 FILE_NAME : BLOCK CNAMSC"MAXRSS, BYTE]; ! text for file name 
: 246 108 '¢ 
3; 245 100 ! In BASIC, only channel 0 can go through default open. This maps 
: 24 1004 ! into one LUN for INPUT, LINPUT and INPUT LINE, and another LUN 
: 246 1005 i for PRINT and PRINT USING. In the code below. we first do the 
; 248 1996 ' common setups, and then a SELECTONE statement separates the 
3 $3 sit setups for the two LUNs. 
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L 
LUBSB_RAT) = FARCE 


= 
CCB CLUBSV“NOMARGIN] = 
CCB CLUBSV-UNIT_0J = 1; 
, 8 LUBSV—TERM-FOR] = 
Set up the RAB 
CCB CRAB$SB_BID) = RABSC 
CCB CRAB$B~BLN] = RABSC 
CCB CRAB$V~LOC) = 0; 
CCB CRABSL-FAB) = .FAB; 


'¢ 
Set up the NAM block 


if FAB CFABSL_NAM] = 
Initialize the FHC XAB. 
" CHSFILL (0 


default open. 


SELECTONE (.CCB CLUBSW_ 
SET 


Kk 7 
1o~sen= 138% 
14-Sep-1984 


AB: 
13 


LF; 
$K_ORG_TERMI; 
FABSB_RATJ; 


LUBSK _D MARGIN; 


1; 


B10; 
BLN; 


CHSFILL (0, NAMSC_BLN, NAM BLOCK); 
ARSC ; 


NAM_BLOCK CNAM$B_BID) = N BID; 

F NAM_BLOCK CNAMS$B_BLN) = NAMSC_BLN; 

Set up file name pointers and Lengths 
NAM BLOCK [NAMSL RSA} = NAM BLOCK [NAMSL_ES 
NAM“BLOCK CNAM$B7RSS) = NAMTBLOCK CNAMSB~ES 


LOCK; 


XABSC_FHCLEN, XAB_BLOCK); 
f XAB$B_COD) = KABSC7FHC; 
XAB“BLOCK CXAB$B~BLN] = XABSC~FHCLEN; 
FAB CFABSL_XAB) = XAB_BLOCK; 


'¢ 
! The remainder of the initialization is done differently depending 
! on whether this is an input-type default open or an output-type 


LUN]) OF 


gcc® CLOBSW_D_MARGINI; 


A] 
5 


! Th 
Fi 


Page 6 
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19:36:98 


clear the FAB 

this is a FAB 

length of a FAB 

Variable length records 

Assume LF before record and CR after 
Only sequential operations 


AX-11 tg V4.0°74 
BASRTL.SRC JBASOPENDE .852;1 


Store FAB pointer in the LUB 
This file must be formatted 
We are on record number 1 
terminal organization 

store FAB record attribute 


: Set up the right margin and default right margin. 


is is BASIC channel 0 
le is in terminal format 


This is a RAB 

Length of a RAB 

Do not do locate-mode GETs 
Store pointer to FAB 


Clear the NAM block 
This is a NAM block 
Length of a NAM block 


= FILE_NAME; 
= NAMSC_MAXRSS; 


! Store pointer in FAB 


Clear XAB 

This is an FHC XAB 
Length of an FHC XAB 
Store pointer in FAB 


———_--—---—--—------- --- -- -— -- 
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| paspecren.pert gep 1984 0: AX-11 Bliss-32 V4.0-74 Page 7 
1-041 Sep P= 1 984 Be: BASRTL.SRC JBASOPENDE .832;1 (3) 
> 308 106 

; 309 106 CLUBSK_LUN_INPU] : ! INPUT statement 

; 310 106 BEGIN 

3 11 198 '¢ 

§ \¢ 1979 ‘ Set up a file name of SYSSINPUT:SYSINPUT.DAT 

; 14 1972 FAB CFABSB_DNS] = ZCHARCOUNT te SYSINPUT. DAT‘); 

3 15 107 FAB LFABSL_DNA) = UPLIT (' eye iieve DAT’ }; 

4 16 1074 FAB LFABSB_FNS) = RCOUNT  ¢ *SYSSINPUT : *)s 

8 17 1075 FAB LFABSL_FNA) = ut ('S INPUT: 

$ 18 1076 CCB LLUBSB_RSLJ = ZCHA ARCOUNT ("SY YSSINPUT: Sk ha 1 F DAT‘); 

$ 19 1077 CCB LLUBSA_RSNJ = awe (*SYSSINPUT:SYSINPUT.DAT' ); 

3 $9 1978 = CCB LRABSV_PMT) = ' Use prompt buffer on read 

3 $§ 1080 ! Point the RAB to the Prompt buffer. 

1081 ! It is allocated dynamically. 

: $e Hb It must be deallocated when the file is closed. 

: 326 1084 4 BEGIN 

Hy e? 1085 4 

: 328 1086 4 LOCAL 

3 $$) 44 ? GET_VM_RESULT; 

; $35 Hh 2 ? IF ‘ NOT (GET_VM_RESULT = LIBSGET_VM (ZREF (LUBSK_PBUF_SIZ), CCB CRABSL_PBFI))) 
3 335 1091 4 NBASSSSTOP_ 10 (BASSK_MAXMEMEXC); 

; 334 1398 4 

: 355 1093 3 END: 

; 336 1094 CCB CRAB$B_PSZ) = 0; ! will be filled in as needed 

3 «6337 1095 FAB FABSY-6eT) s Ee ' only allow reading from this LUN 
; 338 1096 FAB CFABSV_SHRGET) =_1; ' allow others to read also 

; 339 1097 ; CCB CLUBS$V_ SEA ONLY) = “et ' We will only read from this LUN 
: 340 1098 CCB CLUB$V_OLD_FILEJ = 1; ! File must already exist 

s 361 1099 2 3 

; 34 1100 2 !+ 

3; 1101 2 ! Default OPEN for BASIC PRINT statement. 

: 344 1138 i. 

; 345 110 

; 346 1104 CLUBSK_LUN_BPRI} : ! PRINT statement 

; 347 1105 BEGIN 

3 48 1106 '¢ 

3 rt tbe : Set the file name to SYSSOUTPUT:SYSOUTPUT.DAT 

; 51 1109 FAB CFABSB_DNS) = ZCHARCOUNT (' SYSOUTPUT. DAT‘); 

5 26 1110 FAB FABSL_DNA = UPLIT (° SYSOUT PUT.DAT* j; 

: 5 1111 FAB CFABSB_FNS) = ZCHARCOUNT (' SYSSOUTPUT: *)s 

3 54 1146 FAB CFABSL_FNA) = UPLIT (‘SY *)s 

é s§ 111 CCB LLUBSB_RSLJ = ee SY SSOUTPUT: SYSOUTPUT . DAT"); 

: 28 1114 CCB CLUBSA_RSN) = UPLIT ( “SYSSOUTPUT : SYSOUTPUT.DAT' ); 

$ 5 1115 FAB CFABSV_PUT) = 1; ! Only aE. PUTS to this LUN 

; 358 1116 FAB CFABSV_NILJ = 1; ! no others may access this file 
3 59 1117 END; 

é 60 1118 

: 1 1119 COTHERWISE) : 

8 66 1120 LIBSSTOP (OTSS_FATINTERR); 

: 6 1121 TES; 

3; 564 1122 


5 aa rte ISSEec1984 99:92:05 YALSLTOLMeHa RZ Mie 74Bo. ae 
; 365 1123 2. !<BLF/PAGE> 
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: 7 1124 '¢ 

; re 1} 5 Now open the file. 

3 4 ii ? OPEN_STATUS = (IF (.CCB CLUBSV_OLD_FILE]) THEN SOPEN (FAB = .FAB) ELSE SCREATE (FAB = .FAB)); 
$ ie 1129 i If the OPEN succeeded, check for a terminal format file on a terminal device, 
3 ft i , ‘ and change to PRN format if so. this is so that the terminal is forcible. 
3; 375 11 ; 

:; 37 11 IF (.OPEN_STATUS) 

s Br 1134 

; 378 1135 BEGIN 

; 379 1136 

; sey 1% i $ IF ((.FAB CFABSL_DEV] AND DEVSM_TRM) NEQ 0) 

3 38 1139 4 BEGIN 

; 1140 4 

5 84 1141 4 !¢ 

; 385 a 4 i only reset to PRN if this is the output side of channel 0. 

3 386 1367 ? ‘ an attempt to do so on a file opened for input results in an error from RMS. 
; 388 1145 4 

; 389 1146 5 IF (.CCB CLUBSW_LUN] EQL LUBSK_LUN_BPRI) 

: 390 1147 4 

; 391 1148 5 BEGIN 

3 $s 1149 § 

; 39 1150 5 !¢ 

3 394 1151 5 ! Close and re-open the FAB, since we do not have $MODIFY. 

; 395 1136 5 i- 

; 396 1153 5 

3 Son W128 H IF ( NOT $SCLOSE (FAB = .FAB)) THEN BASSS$STOP_IO (BASS$K_IOERR_REC); 
; 399 1156 5 !¢ 

: 400 1157, 5 } Turn off CR and turn on PRN. 

3; 401 1158 § i- 

: 40 1159 § 2 prety it 

: 40 1160 5 RN) = "i 

3 404 1161 5 CCB RABSI “RNB = c¢B Rn UBSW_BAS_VFC); 

; 405 1166 5 FABSB_RFM) = FABSC_VFC; 

3; 406 116 2 '¢ 

; 407 1164 i Re-open the user's file. 

: 408 1165 : i. 

; 409 1166 OPEN_STATUS = SOPEN (FAB = .FAB); 

: 410 1167 4 END; 

> 411 1168 4 

$ ‘ie 118 4 '¢ 

: $i7 1 ; ‘ indicate a terminal device is forcib\2 (both input & output sides) 

3; 64415 1106 4 CCB CLUBSV_FORCIBLE) = |; 

; 61g 117 END; 

s 61 1174 

; 418 1175 END; 

3 619 1176 

Z : Ht IF (.OPEN_STATUS) THEN CONNECT_STATUS = SCONNECT (RAB = .CCB); 

: 6 ; 1199 '¢ 

2 62 1180 ' Store away the Directory ID in case CLOSE needs to delete the file. 


8 
SSOPEN_DEFLT 16-Sep-1984 90:37:08 AX-11 Oi reece V4.0-74 Page 10 
4) 14-Sep-1984 11:56: BASRTL.SRC JBASOPENDE .852; 1 (4) 
: ¢ 1} 1 : Also save the IFI. 
426 11 ‘ CHSMOVE (NAM$S_DID, NAM BLOCK CNAMS$W_DIDJ, CCB CLUB$W_DIDJ); 
¢ 1} : bs CCB CLUBSW_IFIJ = .FAB CFABSW_IFIJ; 
429 11 $ ! If we have an expanded name string or a resultant name string, point 
430 ie ! the LUB to it instead of the user-supplied name, to improve error 
431 1188 ! messages. 
4 ¢ 1189 3° 
4 1190 
434 1191 IF (.NAM_BLOCK CNAM$SB_RSL] NEQA 0) 
¢3? 1138 THEN 
436 119 BEGIN 
437 1194 CCB CLUBSA_RSN] = .NAM_BLOCK CNAMSL_RSA]; 
438 1195 CCB CLUBSB_RSLJ = .NAM_BLOCK CNAM$B_RSLJ; 
439 1196 3 END 
440 1197 2 ELSE 
44) 1198 § 
ge 1199 IF (.NAM_BLOCK CNAM$B_ESL] NEQA 0) 
44 1200 THEN 
444 1201 BEGIN 
445 1608 CCB CLUBSA_RSN] = .NAM_BLOCK CNAMSL_ESA); 
446 1203 3 CCB CLUBSB_RSL] = .NAM_BLOCK CNAM$B_ESLJ; 
447 12046 2 END; 
448 1205 § 
449 1206 ie 3 
450 1207 2 ! If OPEN or CREATE got an error, give an appropriate error message. 
451 1208 § !- 
re 1209 
433 1210 é IF ( NOT .OPEN_STATUS) THEN BASS$STOP_IO (BASS$K_IOERR_OPE); 
455 isi¢ § to : 
456 121 ! If CONNECT got an error, give an appropriate error message. 
457 1214 § le 
458 1215 
$45 1si6 2 IF ( NOT .CONNECT_STATUS) THEN BASS$$STOP_IO (BASSK_IOERR_CON); 
461 1218 '¢ , 
462 1219 ! If the device opened is a terminal, set the TERM_DEV bit in the LUB 
463 1220 § ! and set the default margin based on the width of the terminal, which is 
464 1221 ' returned in the BLS field of the FAB. 
465 1$66 2 !- 
466 122 
467 1 $¢ IF ((.FAB CFABSL_DEV) AND DEVSM_TRM) NEQ 0) 
468 1225 THEN 
469 1226 BEGIN 
470 1227 CCB CLUBSV_TERM_DEV) = 1; 
471 1228 CCB CLUBSW"D_MARGIN] = .fAB CFABSW_BLS); 
47 1229 CCB CLUBSW_R_MARGIN] = 0; 
47 1230 CCB CLUBSV-NOMARGIN) = 1; 
474 1231 END; 
475 1 ¢ 
47 1 4a , 
47 1234 ! If the file just opened was already in existence, perform 
478 1235 ' consistency checks between the file's attributes and the 
of} 1539 : default parameters. 


.——------ ee 


| 


BASR 


IF (.CCB CLUBSV_OLD_FILEJ) 
BEGIN 
; Organization check: must be sequential. 


IF (.FAB CFABSB_ORG] NEQ FABSC_SEQ) THEN BASSSSTOP_IO (BASS$K_FILATTNOT); 
14 
If the file is in PRN format, record the fact. 


IF (.FAB CFABSV_PRNJ) THEN CCB CLUBSV_PRNJ = 1; 
1+ 
Compute the record size and store it in the LUB. 


of old file processin 
59 p 9 


14 

The following processing is done only if this is a new file. 
ig 

Set the record buffer size to the default. 

5S CLUBSW_RBUF_SIZE] = BASSK_DEF_RECLE; 


SRLESES 


! end of new file processing 


'¢ 
' Don't permit the ‘undefined’ record format, since it can be used 
! only with block 1/0. 


coc” tes (.FAB CFABSB_RFMJ) OF 


CFABSC_FIX, FABSC_VAR, FABSC_VFC] : ! ok, do nothing. 


PU PU LV LULVUDV LVL DVL SE PUSS SUIS STS STITT IIIT 


WA. ANIA POPINOPINPONPONNYDY OO Oe ae oe 
MWEFWN $0 OOO UE W “OO OnNOuUfwn—o 


AL 
GET _VM_RESULT; 


ee a ee ee a a ea a a a a ee a a ee a a el a a a a a a a a a ed 
PWN 0 OONO VE WIN 9 ODONA UE WN 98 ODNO UENO OD NOA UE WN CO ODNOU SWI —OO0 
A.A AAAI AIP PIPPDNYNIPONPDNPONININYNPUNIPINIPINININ WWI WNW WWII AANA AAAI 


$B COTHERWISE) : 
8 BASS$STOP_IO (BASSK_ILLUSA); 
$B TES; 
8 
8 '¢ 
8 Allocate a record buffer. 
BEGIN 
8 
9 LOC 
9 
9 
9 
9 


Wmuw 


w 
™N 


| 
i 
| 
| 
| 


: | 
be: wets aeshey IS$e0c198E 99:92:95 YARSANLOLLeHa RZ Me 74. 


he CLUBSW_RBUF SIZE] = MAXU (.FAB vihtee wate a -XAB_BLOCK CXAB$W_LRLJ, BASSK_DEF _RECLE); 
- en 


GET_VM_RESULT = LIBSGET_VM (ZREF (.CCB CLUBSW_RBUF_SIZEJ), CCB CLUBSA_RBUF_ADRJ); 


r 


BASSSOPEN_DEFLT 16-Sep-1984 00:57: AX-11 Bliss-32 V4.0-74 Page 12 
1-041 1e- geet 38t 09:30:98 BASRTL. RCIBASOPENDE .B 231 ’ (4) 
: 335 : 3 IF ( NOT .GET_VM_RESULT) THEN BASSS$STOP_IO (BASSK_MAXMEMEXC); 
; 540 1 39 END; 
3 34) 1298 4+ 
3 248 1299 ' Allocate dynamic storage for the file name so that the name can be 
: Hn 1300 ! used later for error diagnostics. Point the LUB to the new location. 
> $46 1301 : gh pes that the space pointed to must be deallocated when the file 
; 545 1 oe ' is closed. 
; 546 130 I< 
; 547 1304 BEGIN 
; 548 1305 
; 549 1306 OCAL 
; 550 1307 GET_VM_RESULT, 
3 «(351 1308 OLD-ADBRESS; 
3 22¢ 1309 
3 3 1310 OLD_ADDRESS = .CCB CLUBSA_RSN); 
; 236 1311 GET-VM_RESULT = LIBSGET_VM (XREF (.CCB CLUBSB_RSLJ), CCB CLUBSA_RSNJ); 
; 228 1318 IF ( NOT .GET_VM_RESULT) THEN LIBSSTOP (.GET_VM_RESULT); 
: 558 1315 CHSMOVE (.CCB CLUBSB_RSLJ, .OLD_ADDRESS, .CCB CLUBSA_RSNJ); 
s Do 1316 CCB CLUBSV_VIRT_RSN) = 1; 
; 560 1317 § END; 
: 36) 1318 '¢ 
: 206 1333 Set those RAB fields that seldom change. 
: 564 1321 2 CCB CRABSL_UBF] = .CCB CLUBSA_RBUF_ADRI; 
; 565 1328 CCB CRABS$W-USZ) = .CCB CLUBSW-RBUF SIZE); 
; 266 1393 ,, 008 CLUBSAUBFI = .CCB CLUBSA_RBUF ADR); 
; 208 135? Clear LUBSA_FAB to indicate that the FAB is no Longer present. 
: 570 1327 2 CCB CLUBSA_FAB) = 0; 
3; Or 1328 '¢ 
: 27¢ 1399 § Indicate that the file is now open for BASIC. 
: 574 1331 2° §=ccB FLUBSB_LANGUAGE] = LUBSK_LANG_BAS; 
; 273 1336 ,, 0B CLUBSVLOPENEDJ = 1; 
: 577 1334 i Declare the BASIC exit handler to purge 1/0 buffers and close the 
; 578 1335 ! file when the image exits. 
; 579 1336 te 
; 580 1337 
: 2! 1338 IF ( NOT BASSSL_XIT_LOCK) THEN BASSSDECL_EXITH (); 
; 85 1340 RETURN; 
; 584 1341 1 END; ! of routine BASSSOPEN_DEFLT 
-TITLE BASSSOPEN_DEFLT 
~IDENT \1-041\ 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
54 41 44 2€ 54 55 50 rt} 49 59 0000 P.AAA ASCII \SYSINPUT.DAT\ : 
90 99 7 4 55 50 4E 4 $ 23 48 P.AAB: .ASCII \SYSS$INPUT:\<0><0> 3 
4— 49 53 59 5 A 54 55 50 4E 49 24 9 0018 P.AAC ASCII \SYSSINPUT:SYSINPUT.DAT\<0><0> 3 


8 
BASSSOPEN_DEFLT F - Sep 
1 4-Sep 


1 
1-04 1 
0 4 41 44 2— 54 55 0027 
woxoun RSENS THE OBE 
9 A 54 55 50 54 55 4F 24 53 59 0040 P.A 
aes 53 59 33 3A 54 35 35 ef 55 4F 24 33 2 QO4C P.A 
| 4 41 446 2— 54 55 50 54 00058 
O7FC 00000 
5E FE20 CE 9E OO 008 
56 BO AD 9E 0000 
0050 = &F 00 6E 00 2C 00008 
66 Boe is 
66 5003 8F 80 0001 
1F AG 02 90 00018 
59 1€ AG YE OOOIC 
69 02 88 00020 
04 A6 40 8F 88 00023 
€8 AB 56 DO 00028 
57 FC AB 9E bongs 
01 A7 01 88 00030 
EO AB 01 DO 00034 
C4 AB 04 90 Boge 
F6 = AB 59 90 0003C 
D6 «AB 48 8F 9B 00040 
DS AB D6 =6—AB BO 00045 
Al AB 02 8A O004A 
58 FE AB 9E Boss 
68 90 F 88 0005 
68 4401 F BO 00056 
06 AB 01 8A 00058 
3¢ AB 56 DO 0005F 
0060 = 8F 00 6E 00 2c BRn8s 
FF50 86D 006A 
FF5O 86 CD 6002 «BF go Ba080 
50 04 AE f 00074 
FF5SC =CD 23 dO 00078 
FF54 «CD 0 00 itd) 
FFSA CD 01 8€ 00 Bs 
oh CD 01 8€ 000 
28 AG FF50 «6CD O9E Bones 
2c 00 6€ 00 2C 00 36 
FF24 CD 93 
FF24 =6CD 2C1D 8F BO QO09A 
24 46 FF24 CD 5 OO0A1 
5 (6 AB 32 Q00A7 


=1986 91:36 


33 


\SYSOUTPUT. 


AX- 
BAS 


\SYSSOUTPU 
\SYSSOUTPU 


Sn ige™ en LOCK 
ROS Mg Me CocK+12 


#0, (SP), 


once, XAB_BLOCK 


11 Bliss-32 V4.0-7 ag 
RTL. SRC JBASOPENDE .B832;1 
DAT\<0><0><0> 


T:\<0> 
T:SYSOUTPUT.DAT\ 


BASSS$STOP_10 


FAB) 
"#0, #44, XAB BLOCK 


LIBSSTOP, 

LIBSGET_VM » BASSSDECL _EXITH 

BASSSL RIT, Lock 

BASS$SK_T0_C 

BASSK~ -5 AE aR “BASSK. FATSYSIO_ 

BASS$K~F ILATTNOT 

BASS$K~ILLU BASSK MAXMEME XC 

OTS$ PATINTERR YSSOPEN 

SYSSCREATE, SYS$ seLose 

SYSSCONNE Ef 

BASSSOPEN_DEFLT, Save R2,R3,R4,R5,R6,R7,R8,-; 
9,R10 3 
-480(SP), SP ; 
FAB_BLOCK, FAB : 
0,"(SP), #0, #80, (FAB) : 
#20483, (FAB) ; 
See 31(F AB) 3 
30(FAB), RO 3 
#2, (ROS ; 

#64, 4(FAB) : 
FAB. -24(CCB) F 
-4(€CB), R? F 

#1, 1(R?) ; 

#1, -32(CCB) : 

#4, -60(CCB) F 

R9. =10(CCB) : 

#72, -42(CCB) F 

-42(CCB), -44(CCB) ; 

W -95(€CB) : 

-2(CCB), RB F 

#144, (RB) ; 

#17469, (CCB) : 
1, 6(€CB) ; 

FAB, (20(CCB) : 

#0, (SP), #0, #96, NAM_BLOCK : 


*S TCCB 


BLOCK, Ri 


Coooooooo ocOCOoO COCO CO 
AWIAIAIAIPIRINIININRN NM PM OO OO 


Se ee ee ee ee ee 


oo oCcoCo°o 
sr S&S 


et ee Sane Stabe 68251 


1 Blis 
BASRTL.SRC JBASOPENDE .B 
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| BASSSOPEN_DEFLT 16-Sep-1984 AX-11 Bliss-32 v4.0-74 Page 16 
1-061 14-Sep-1986 11:56:03 EBASRIL “SRE SBASOPENDE-B32; 1 9 a) 
| 09 50 £8 0029 BLeS —GET_VM_RESULT, 268 ; 1313 
| 0 DD 0029 PUSHL GET VM_RESULT : 
| 000000006 9 01 §B 0029 CALLS #1, L188ST0P ; 
| F7 AB 9A 0089 268: MOVZBL =i CCB), ; 1315 
| F8 BB 6 30 28 O0CA movCS RO, (OLB ADDRESS), @-8(CCB) 3 
| 6 01 O3A BISB2 #1, (RB)~ : 131 
| 34 AB EC DO 002A8 MOVL  =26(CCB), 36(¢¢B) : 132 
| 0 AB bs AB OBO O2Ap MOVW = -46¢CCB), S2¢CCB) : 132 
9¢ AB EC AB DO 00282 Mov. = =g0¢CCB), =100¢CCB) : 132 
EB AB D4 0028 CLRL = =24( CCB) i 138 
d8 01 90 002BA MOVE, al, 40 (CCB) : 13 
6 01 88 O0¢BE BISB2 #1, (R7) : 133 
| Q 000000006 90 9% d0%¢ MOVAB BASSSL XIT_LOCK, RO ; 133 
? 50 £8 002C8 BLBS_ RO, 278 
| 000000006 00 00 FB 002CB CALLS #0, BASSSDECL_EXITH : 
04 O02D2 278: —RET : 1341 


; Routine Size: 723 bytes, Routine Base: _BASSCODE + 0064 


Ww. 1348 1 

, 3 1343 1 END ! end of module BASSSOPEN_DEFLT 
3 387 1344 1 

; 588 1345 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: _BASSCODE 823 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

pe ee a Symbols -ooe---- Pages Processing 

3 File Total Loaded Percent Mapped me 

> _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 66 0 581 00:01.1 

$ COMMAND QUALIFIERS 


PLISS/EMECK OCF IELD, SMET IAL OPT IRL ZE) /MOTRACE/L 1594, 155 :BASOPENDE /08)908.I5 :BASOPENDE MSRC$:BASOPENDE / UPDATE = (ENH$ : BASOPENDE 


ee 


Ee 


8 
“gasstoren_oerLt 1b-s8p-1984 00:57:05 VAX-11 Bliss-32 V4.0-742 Page 
; Size: 723 08°58.3 + 100 data bytes 
3; Run Time: : 
; Elapsed eb OP; 4 Z| 
3; Lines/CPU Min: 3808 
: Lexemes/CPU-Min: 288 
F pe Used: 270 pages 
; Compilation Complete 
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